home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / sprite editor (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  2KB  |  87 lines
  1. 3 PRINT"[147]PLEASE WAIT..."
  2. 4 X=0:U=1:V=53248:Y=1:WE=1050
  3. 5 POKE53280,0:POKE53281,0
  4. 6 DIM C(1000):DIMV(1000):DIMPF(600):DIMRE(600):DIM G(75):DIMRY(600)
  5. 10 FOR DE=1064 TO 2023 STEP 40
  6. 12 FORTG=1TO24:DF=DF+1:C(DF)=DE+TG:NEXT:NEXT
  7. 14 FOR DE=55336 TO 56295 STEP 40
  8. 16 FORTG=1TO24:SF=SF+1:V(SF)=DE+TG:NEXT:NEXT
  9. 29 F=0
  10. 30 FOR TY=1TO64
  11. 31 RE(TY)=832+F
  12. 32 F=F+1
  13. 33 NEXT
  14. 40 FOR X=832TO832+63:POKEX,0:NEXT
  15. 50 PRINT"[147][154][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]"
  16. 51 FOR DF=1TO21
  17. 52 PRINT"[194][144]                        [154][194]"
  18. 53 NEXTDF
  19. 54 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  20. 55 P=1
  21. 90 FORDK=1TO504:POKEC(DK),160:NEXT
  22. 100 GET A$
  23. 101 POKEC(P),81:POKEV(P),U
  24. 102 POKEC(P),160:POKEV(P),LM
  25. 103 IF A$="I" THEN P=P-24
  26. 104 IF A$="M" THEN P=P+24
  27. 105 IF A$="K" THEN P=P+1
  28. 106 IF A$="J" THEN P=P-1
  29. 107 IF P>504 THEN P=504
  30. 108 IF A$=" " THEN 300
  31. 109 IF P<1 THEN P=1
  32. 110 IF A$="C" THEN 600
  33. 126 IF A$="S" THEN 201
  34. 128 IF A$="X" THEN 2000
  35. 130 IF A$="[147]" THEN 400
  36. 131 LM=PEEK (V(P))
  37. 132 IF A$="U" THEN GOSUB 900
  38. 133 IF A$="E" THEN U=0
  39. 134 IF A$="D" THEN U=1
  40. 135 IF A$="L" THEN 700
  41. 200 GOTO 100
  42. 201 INPUT"FILENAME";NM$
  43. 202 OPEN15,8,15,"S0:"+NM$
  44. 203 CLOSE 15
  45. 205 OPEN6,8,6,"0:"+NM$+",S,W"
  46. 206 FOR HJ=1TO504
  47. 207 YY=PEEK(V(HJ))
  48. 208 PRINT#6,YY
  49. 209 NEXT
  50. 210 CLOSE 6
  51. 211 RUN
  52. 300 POKEV(P),U
  53. 399 GOTO 131
  54. 400 FORT=1TO504:POKEV(T),0:NEXT:GOTO 100
  55. 600 Y=Y+1:IFY>15THENY=0:POKEV+39,Y:GOTO100
  56. 700 INPUT"FILENAME";NM$
  57. 705 OPEN6,8,6,"0:"+NM$+",S,R"
  58. 706 FOR HJ=1TO504
  59. 707 INPUT#6,YY
  60. 708 POKEV(HJ),YY
  61. 709 NEXT
  62. 710 CLOSE 6
  63. 711 GOTO 100
  64. 900 FOR GJ=1TO504:RY(GJ)=PEEK(V(GJ)):NEXT
  65. 930 R=0:FORHK=1TO504STEP8:R=R+1:G(R)=0
  66. 1000 IFRY(HK+0)<>0THEN G(R)=G(R)+128
  67. 1001 IFRY(HK+1)<>0THEN G(R)=G(R)+64
  68. 1002 IFRY(HK+2)<>0THEN G(R)=G(R)+32
  69. 1003 IFRY(HK+3)<>0THEN G(R)=G(R)+16
  70. 1004 IFRY(HK+4)<>0THEN G(R)=G(R)+8
  71. 1005 IFRY(HK+5)<>0THEN G(R)=G(R)+4
  72. 1006 IFRY(HK+6)<>0THEN G(R)=G(R)+2
  73. 1007 IFRY(HK+7)<>0THEN G(R)=G(R)+1
  74. 1008 NEXT:GOTO 1100
  75. 1009 FORTY=1TO63
  76. 1010 POKERE(TY),G(TY)
  77. 1011 NEXT
  78. 1012 GOTO 100
  79. 1100 POKEV+21,1:POKE2040,13:POKEV+39,Y
  80. 1101 POKEV+16,1:POKEV,30:POKEV+1,100:GOTO 1009
  81. 2000 FOR I=832TO894:POKEI,0:NEXT
  82. 2009 POKE198,4
  83. 2010 PRINT"[147]LOAD"CHR$(34)"SPECTRUM V1.0";
  84. 2020 PRINTCHR$(34)",8";
  85. 2030 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  86. 2040 END
  87.